home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / text / Azzaro.rx < prev    next >
Encoding:
Text File  |  1999-12-23  |  1.4 KB  |  117 lines
  1. /*
  2.     Arexx Text Script
  3. */
  4.  
  5.     options results
  6.   parse ARG Port x y b
  7.     ADDRESS value Port
  8.  
  9.     pp_AvoidRefresh
  10.  
  11.     F=0
  12.     ADDRESS COMMAND
  13.     if EXISTS('PerfectPaint:Prefs/Rexx_Prefs/Azzaro') THEN DO
  14.         IF OPEN('lfile','PerfectPaint:Prefs/Rexx_Prefs/Azzaro', "R") then DO
  15.             F = READLN('lfile')    
  16.             CALL CLOSE('lfile')
  17.         END
  18.     END
  19.  
  20.     ADDRESS value Port
  21.     pp_DialogInit 150 55 "*Azzaro*" 1
  22.         pp_Cycle 0 60 5 60 16 "Bg" 1 "Black|White" F
  23.     pp_Dialog
  24.     rc=result
  25.     if rc=0 then
  26.         do
  27.             pp_PermitRefresh
  28.             EXIT
  29.     end    
  30.  
  31.     pp_GetDialog 0
  32.     F=result
  33.  
  34.     CALL SavePrefs('Azzaro',F)
  35.     ADDRESS value Port
  36.  
  37.     pp_GetDepth
  38.     depth=result
  39.  
  40.     pp_ComposeReqOff
  41.     pp_PicttoSpare
  42.  
  43.     pp_GetHeightT
  44.     H=result
  45.  
  46.     pp_GetWidthT
  47.     W=result
  48.  
  49.     xx=x-W/2
  50.     yy=y-H/2
  51.  
  52.     pp_ClosestColor 0 0 0
  53.     Black=result
  54.  
  55.     pp_ClosestColor 255 255 255
  56.     White=result
  57.  
  58.     pp_Compose 0 100 0
  59.  
  60.     if depth=24 then DO
  61.         pp_UpdateUndoBox xx-15 yy-15 xx+W+33 yy+H+33    
  62.     END
  63.     ELSE DO
  64.         pp_UpdateUndo
  65.     END
  66.     
  67.     pp_EffectOn
  68.     if F=0 then DO
  69.         pp_SetApen Black
  70.     END
  71.     ELSE DO
  72.         pp_SetApen White
  73.     END
  74.     pp_Airbrush 100 10
  75.     pp_TextDraw x-2 y-2
  76.  
  77.     pp_Airbrush 100 5
  78.     pp_TextDraw x y
  79.  
  80.     pp_Spare
  81.     pp_TextDraw x y    
  82.     
  83.     pp_PermitRefresh
  84.  
  85.     pp_EffectOff
  86.     pp_ComposeReqOn
  87.     
  88. EXIT
  89.  
  90. SavePrefs: PROCEDURE
  91.     
  92.     Prefname='PerfectPaint:Prefs/Rexx_Prefs/'||ARG(1)
  93.  
  94.     if EXISTS(Prefname) THEN DO
  95.         ADDRESS COMMAND
  96.         'delete >nil: '||Prefname
  97.     END
  98.  
  99.     IF OPEN('pfile',PrefName,'W') THEN DO
  100.  
  101.     do i=2 to ARG()
  102.         CALL WRITELN('pfile',ARG(i))
  103.     end
  104.  
  105.     CALL CLOSE('pfile')
  106.  
  107. RETURN
  108.     
  109.     
  110.  
  111.     
  112.  
  113.  
  114.     
  115.  
  116.     
  117.